home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amis / scripts / amigaguide.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-16  |  497 b   |  22 lines
  1. /* Switch to AmigaGuide Macro */
  2.  
  3. options results
  4. if address()="REXX" then
  5.    address 'AMISPORT.1'
  6.  
  7. 'Cursup TOP'
  8. 'GetLine'
  9. if upper(left(result,9))~="@DATABASE" then
  10. do
  11.   'Request BODY="This does not look like an|AmigaGuide database, do you want|to convert it ?" BUTTON="¶_Yes|_No|_Cancel"'
  12.   if result=1 then
  13.   do
  14.     'Insert TEXT="@Database¶¶@node MAIN¶¶"'
  15.     'Cursdown BOTTOM'
  16.     'Insert TEXT="¶¶@endnode¶¶"'
  17.     'Cursup TOP'
  18.   end
  19.   else if result=3 then exit
  20. end
  21. 'Viewer NAME="AmigaGuide"'
  22.